home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / SEEN_REP.SRC < prev    next >
Text File  |  1990-11-04  |  3KB  |  174 lines
  1. ;\|
  2. ;SEEN_REP.SRC     Translated from SEEN_REP.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;SEEN_REP 04:22:13 PM  11/10/90                    |
  4. ;Program generated with the database file lister|
  5. define(PAGE|N|5|0|)
  6. define(DATE.TIME.FLD|A|46||)
  7. define(TOT.RECS|N|8|0|)
  8. define(CHG.TIME|T|8||)
  9. define(CHG.DATE|D|10||)
  10. define(STDDAYS|A|12||)
  11. define(STDMONTH|A|12||)
  12. define(STDYEAR|A|6||)
  13. define(STDAYH|A|4||)
  14. define(AM.PM|A|2||)
  15. define(TIME.STRG|A|10||)
  16. define(PG.STRG|A|5||)
  17. define(SELECT.FLD.F1|D| 10||)
  18. define(SELECT.FLD.T1|D| 10||)
  19. define(SELECT.FLD.F2|S|  8||)
  20. define(SELECT.FLD.T2|S|  8||)
  21. clrscr
  22. pchr(P|4)
  23. pchr(P|1)
  24. clrlne(1|25)
  25. open(PATIENT |||)
  26. trap(q|g|exit)
  27. gosub GET.DATE
  28. mount(SELECT|S||)
  29. enter(SELECT.FLD.F1||||||||)
  30. enter(SELECT.FLD.T1||||||||)
  31. enter(SELECT.FLD.F2||||||||)
  32. enter(SELECT.FLD.T2||||||||)
  33. trap(P|G|TOF)
  34. mount(REPORT|R|A|)
  35. trap(I|G|FINI)
  36. find(B|PATIENT.NAME   |NO.RECS)
  37. PRT.REC:
  38. if SELECT.FLD.F1 <> (0) then if SELECT.FLD.F1 > (DATE.OF.BIRTH) goto RD.NEXT
  39. if SELECT.FLD.T1 <> (0) then if SELECT.FLD.T1 < (DATE.OF.BIRTH) goto RD.NEXT
  40. if SEEN > (SELECT.FLD.F2) goto RD.NEXT
  41. pfmt(6||||)
  42. TOT.RECS = (TOT.RECS + 1)
  43. RD.NEXT:
  44. find(N|PATIENT |FINI)
  45. goto PRT.REC
  46. FINI:
  47. pfmt(5||||)
  48. pfmt(8||||)
  49. pblnk(2)
  50. pfmt(7||||)
  51. trap(P|D|)
  52. ptof
  53. run("recmenu"|)
  54. TOF:
  55. PAGE = (PAGE + 1)
  56. pfmt(1||||)
  57. pfmt(2||||)
  58. pfmt(3||||)
  59. pblnk(1)
  60. pfmt(4||||)
  61. pfmt(5||||)
  62. ret
  63. GET.DATE:
  64. time(CHG.TIME|G)
  65. date(CHG.DATE|G)
  66. AM.PM = ("AM")
  67. if CHG.TIME > (43199) doO
  68. {
  69. AM.PM = ("PM")
  70. if CHG.TIME > (46799) then CHG.TIME = (CHG.TIME - 43200)
  71. }
  72. TIME.STRG =mid(CHG.TIME|1|8|)
  73. STDDAYS =day(CHG.DATE)
  74. STDMONTH =xmt(CHG.DATE)
  75. STDAYH =mid(CHG.DATE|4|2|)
  76. STDYEAR =mid(CHG.DATE|7|4|)
  77. PG.STRG = (PAGE)
  78. DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  79. ret
  80. NO.RECS:
  81. pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  82. EXIT:
  83. run("recmenu"|)
  84. \R REPORT  
  85.                  SEEN_REP - Database File Listing for: PATIENT
  86.                 &
  87.                                  Page # &
  88. PATIENT.NAME                 DATE.OF.BIRTH  SEEN      DATE_SEEN  SENT_FOR
  89. ---------------------------  -------------  --------  ---------  --------
  90. &                            &              &         &          &
  91. Total number of records printed: &
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133. \
  134. DATE.TIME.FLD
  135. PAGE
  136. PATIENT.NAME
  137. DATE.OF.BIRTH
  138. SEEN
  139. DATE_SEEN
  140. SENT_FOR
  141. TOT.RECS
  142. \
  143. \STSELECT  
  144.  Selection screen for SEEN_REP - Database File Listing for: PATIENT
  145.  DATE.OF.BIRTH
  146.  FROM- &
  147.  THRU- &
  148.  SEEN
  149.  FROM- &
  150.  THRU- &
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168. \
  169. SELECT.FLD.F1
  170. SELECT.FLD.T1
  171. SELECT.FLD.F2
  172. SELECT.FLD.T2
  173. \
  174.